#ifndef ___fat32_transaccionA8_truncar_archivo

#define ___fat32_transaccionA8_truncar_archivo 1

#include "f32_mto.c"

#include "f32_st01.c"
#include "f32_st02.c"
#include "f32_st09.c"
#include "f32_st10.c"
#include "f32_st11.c"
#include "f32_st12.c"
#include "f32_st13.c"
#include "f32_st15.c"

enum fat32trA8_errores {
  FAT32_A8_NO_EXISTE_ARCHIVO = 1,
  FAT32_A8_ES_DIRECTORIO = 2,
  FAT32_A8_NO_PERMITIDO = 3,
  FAT32_A8_MAS_ALLA_DE_FIN_DE_ARCHIVO = 4
};

struct fat32trA8_datos_entrada {
  char * nombre;
  unsigned long posicion;
  unsigned int remitente;
};

struct fat32trA8_datos_internos {
  char * nombreArchivo;
  char ** ruta;
  unsigned long long descriptor;
  unsigned long posicionTruncado;
  unsigned int remitenteMensaje;
  struct fat32_atributos_archivo atributos;
  struct fat32_ref_entrada_directorio entrada;
  void * datosInternos;
  fat32_lista_bloques_para_escribir * lbpe1;
  signed short errorDevuelto;
};

void fat32tr_truncar_archivo(unsigned int, char *, unsigned long);
int fat32ctr_truncar_archivo(FAT32_PARAMS_CREACION_TRANSACCION);
int fat32etr_truncar_archivo(FAT32_PARAMS_TRANSACCION);

void fat32tr_truncar_archivo (unsigned int remitente, char * nombre, unsigned long posicion) {
  struct fat32trA8_datos_entrada datos;
  datos.nombre = malloc(strlen(nombre) + 1);
  memcpy(datos.nombre, nombre, 1 + strlen(nombre));
  datos.posicion = posicion;
  datos.remitente = remitente;
  fat32_crear_transaccion(&fat32ctr_truncar_archivo, &datos, sizeof datos);
}

int fat32ctr_truncar_archivo (FAT32_PARAMS_CREACION_TRANSACCION) {
  struct fat32trA8_datos_entrada * de = datosIniciales;
  struct fat32trA8_datos_internos * di = malloc(sizeof(struct fat32trA8_datos_internos));
  di -> nombreArchivo = de -> nombre;
  di -> remitenteMensaje = de -> remitente;
  di -> posicionTruncado = de -> posicion;
  *datos = di;
  *handler = &fat32etr_truncar_archivo;
  return 0xE100;
}

int fat32etr_truncar_archivo (FAT32_PARAMS_TRANSACCION) {
  unsigned char estado1;
  int estado2;
  estado2 = estado >> 8;
  estado1 = estado & 255;
  struct fat32trA8_datos_internos * datosT = *datos;
  switch (estado2) {
  case 0x01:
    estado1 = fat32st_obtener_conexion(estado1, numeroTransaccion, &(datosT -> conexion), resultadoOperacion, datosOperacion);
    if (!estado1) estado2 = 0x02;
    break;
  case 0x02:
    estado1 = fat32st_ubicar_entrada_directorio(estado1, numeroTransaccion, datosT -> ruta, &(datosT -> datosInternos), resultadoOperacion,
                                                                                                                            datosOperacion);
    if (!estado1) {
      datosT -> entrada = *((struct fat32_ref_entrada_directorio *) (datosT -> datosInternos));
      free(datosT -> datosInternos);
      estado2 = 0xE1;
      estado1 = 1;
    }
    break;
  case 0x03:
    estado1 = fat32st_obtener_atributos(estado1, numeroTransaccion, (datosT -> entrada).clusterInicial, (datosT -> entrada).posicionEntrada,
                                                                             &(datosT -> datosInternos), resultadoOperacion, datosOperacion);
    if (!estado1) {
      datosT -> atributos = *((struct fat32_atributos_archivo *) (datosT -> datosInternos));
      free(datosT -> datosInternos);
      estado2 = 0xE1;
      estado1 = 2;
    }
    break;
  case 0x04:
    estado1 = fat32st_cambiar_tamano_asignacion_archivo(estado1, numeroTransaccion, (datosT -> entrada).clusterInicial,
                                                        (datosT -> entrada).posicionEntrada, datosT -> posicionTruncado,
                                                        &(datosT -> datosInternos), resultadoOperacion, datosOperacion);
    if (!estado1) {
      datosT -> lbpe1 = datosT -> datosInternos;
      estado2 = 0x05;
    }
    break;
  case 0x05:
    estado1 = fat32st_ejecutar_lista_bloques_para_escribir(estado1, numeroTransaccion, datosT -> lbpe1, &(datosT -> datosInternos),
                                                                                                resultadoOperacion, datosOperacion);
    if (!estado1) {
      estado2 = 0xE1;
      estado1 = 3;
    }
    break;
  case 0x06:
    estado1 = fat32st_liberar_conexion(estado1, numeroTransaccion);
    if (!estado1) {
      estado2 = 0xE1;
      estado1 = 4;
    }
    break;
  case 0xE1:
    switch (estado1) {
    case 0:
      datosT -> ruta = fat32_obtener_ruta(datosT -> nombreArchivo);
      datosT -> descriptor = fat32_generar_descriptor(datosT -> ruta, 0);
      datosT -> lbpe1 = NULL;
      datosT -> errorDevuelto = -1;
      estado2 = 0x01;
      break;
    case 1:
      if ((datosT -> entrada).resultado) {
        datosT -> errorDevuelto = FAT32_A8_NO_EXISTE_ARCHIVO;
        estado1 = 3;
      } else {
        estado2 = 0x02;
        estado1 = 0;
      }
      break;
    case 2:
      if ((datosT -> atributos).hardlinks > 1) {
        datosT -> errorDevuelto = FAT32_A8_ES_DIRECTORIO;
        estado1 = 3;
      } else if ((datosT -> atributos).soloLectura) {
        datosT -> errorDevuelto = FAT32_A8_NO_PERMITIDO;
        estado1 = 3;
      } else if ((datosT -> posicionTruncado) > ((datosT -> atributos).tamano)) {
        datosT -> errorDevuelto = FAT32_A8_MAS_ALLA_DE_FIN_DE_ARCHIVO;
        estado1 = 3;
      } else if ((datosT -> posicionTruncado) == ((datosT -> atributos).tamano))
        estado1 = 3;
      else {
        estado2 = 0x04;
        estado1 = 0;
      }
      break;
    case 3:
      if ((datosT -> errorDevuelto) != -1)
        mtf_enviar_mensaje(fat32_centro_mensajes, datosT -> remitenteMensaje, MTR_ARCHIVO_NO_TRUNCO, datosT -> nombreArchivo,
                                                                                             (int) (datosT -> errorDevuelto));
      else
        mtf_enviar_mensaje(fat32_centro_mensajes, datosT -> remitenteMensaje, MTR_ARCHIVO_TRUNCADO, datosT -> nombreArchivo);
      estado2 = 0x06;
      estado1 = 0;
      break;
    case 4:
      free(datosT -> nombreArchivo);
      fat32_destruir_ruta(datosT -> ruta);
      fat32_liberar_descriptor(datosT -> descriptor);
      if (datosT -> lbpe1) free(datosT -> lbpe1);
      free(datosT);
      estado1 = 0;
      estado2 = 0;
    }
    break;
  }
  return (estado2 << 8) | estado1;
}

#endif